my $info = '... on 2011/04/01 by HHGKPrime@wvereecken_main \'Fix template warnings by ...';

my $cldate = '';
if ($info =~ / on ([0-9\/]+) by /) {
    $cldate = $1;
}

print "$cldate\n";
